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TALK NATUI 


looks into the problems of creatingaman- 136] 
machine interface that resembles human 

methods of communication. Why is it so 

difficult to make computers understand 

what we have to say? 





FAST MOVER We take the wraps off the 


Quick Data Drive, a wafer-based system for 13/7? 
the Commodore 64. Will it run rings round | 
Commodore’s own drives? 









CODE CREATING CODE The Last One 1) Whyis it difficult to program a computer to 
and Sycero are two program generators that 13/4 | Whderstandspeech? #§§# §g. 

exemplify the state of the art for software 2) What does the acronym LISP stand for, and what 
that writes software. We look at the _____ feature of the language makes it so useful in artificial 
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ENTER THE LISTS Our introduction to a 
Series On Lisp Shows how the language’s 
processing of lists (from which it derives its 
name) has made it popular in AI research 







FROM PROGRAM TO PROM A weekl 
ossary of computing terms 















READY, STEADY ... Before we begin an 
exotic new series showing you how to 1366 
program the ancient Japanese game of Go, 

we introduce you to the game’s rules 





INSIDE INTERRUPTS How to program 


the Sinclair Spectrum to make the best of 13/8 
the operating system’s interrupt routines 





MELODIC LINES Our MIDI interface 
project continues with a look at how the pins 1368 
on the ACIA chip are connected to the data 

and control lines of the BBC Micro and 





Commodore 64 Asie 
REFERENCE CARD Another section of BACK 
the Commodore 64’s memory map © COVER a 
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ugh there 
available that can recognise speech and have | 
limited vocabularies, talking naturally to | 


computers is still a long way off. We look at 
the problems associated with natural 
language processing and include a program 
illustrating its conversion to a formal 


enquiry language. 





Hello, Computer. 

| AWAIT YOUR COMMAND, O MASTERFUL ONE! 
Actually, I’m getting a bit tired of the Masterful 
business. Why don’t we go back to ‘Sir’ for the time 
being? 

WHATEVER YOU SAY, SIR. 

Right. Well, | want you to help me find an example for 
an article I’m writing. 

WHAT SORT OF EXAMPLE? 

An example of man—machine dialogue. | know I've seen 
it, but | can’t remember where. 

CAN YOU GIVE ME A FEW CLUES? 

Well, | was reading a book recently. . . 

YOU WERE READING A BOOK? 

Look, | thought | told you to lay off the sarcasm. 

ALL IRONICAL ROUTINES HAVE BEEN DISABLED, AS 
INSTRUCTED, SIR. 

Hmmm. Anyway, there was a really good conversation 
between a salesman and Eliza. 

ELIZA WAS A VERY PRIMITIVE KEYWORD-MACHINE 
SYSTEM. 

| know that. But the salesman didn't realise he was 
communicating with a computer. He thought he was 
talking to someone called Dan Bobrow over a teletype — 
line. It was hilarious. 

| SEE. 

He was asking to use the terminal for a demonstration 
and the machine just kept giving non-committal 
replies. 

THE MACHINE KEPT GIVING NON-COMMITTAL 
REPLIES? 

Exactly. He got angrier and angrier, and eventually he 
rang up Dan Bobrow and shouted down the phone 
‘What the Hell’s going on?’ 

OH, THAT EXAMPLE. 

You know where to find it? 

| KNOW, BUT | DON’T INTEND TO TELL YOU. 

But | need an example dialogue for my article! 

I'VE ALREADY GIVEN YOU THAT. 


This is the kind of man-machine interaction in 
spoken language that is unlikely tc occur in this 
century. The reasons for this are instructive — we 
shall touch on them later, but let’s first consider 
why AI researchers should want to continue 
chipping away at the problem until such a chat is 
possible. 
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speech) is the means by which we communicate 
with most everyone (and everything) around us. It 
would seem natural then to want to communicate 
with a computer in the same manner, instead of 
having to go through the often tedious procedures 
of writing programs, inserting disks and so on. 
Interest in the computer processing of natural 
language began in the 1950s. The first application 
was machine translation. Much money and effort 
was poured into attempts to translate technical 
documents automatically from Russian into 
English (among other languages). It proved far 
more difficult than most people had anticipated. 
Even today, there is no such thing as machine 


The answer is simple: language (especially Tell Me Why? 
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Winograd’s SHDRLU program 
allowed users to give 
instructions to an on-screen 
simulated robot in natural 
language in order to manipulate 
children’s blocks. Commands 
such as ‘stack the large red and 
green cubes on the blue block’ 
were assimilated by the 
program and the correct 
sequence of actions initiated. 
The computer was also capable 
of explaining the underlying 
reasons for its actions in 
response to natural language 
questions from the user 
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A Rows By Any Other Name 

The inherent ambiguities of 
spoken language present 
massive problems for speech 
recognition systems: ‘rose’, 
‘rows’ and ‘roes’ sound the 
same, but each has a very 

_ different meaning which is only 
clear within the context of a 
sentence. For example, the 
correct version of rose/rows/ 
roes is clear to us from the 
meaning of the sentence ‘the 
choir boys sat in rows’, but it 
may be difficult to make a 
computer understand that choir 
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translation, although there are machine-aided 
translation systems — which amount to highly 
sophisticated bilingual word processors. 

The first language-using program that was 
successful (in public-relations terms at least) was 
the Eliza system, devised by Joseph Weizenbaum 
in 1966 and set up to imitate (or parody) a non- 
directive Rogerian psychotherapist. This meant 
that much of its discourse consisted of content- 
free remarks like ‘I see’ and ‘Go on’, or of repeating 


what the person had said in subtly amended form. 


An example exchange was: 


| need some help, that much seems certain. 
WHAT WOULD IT MEAN TO YOU IF YOU GOT SOME 
HELP? 


Weizenbaum himself was appalled by how 
seriously many people took what he saw as a 
clever trick, and consequently became one of AI’s 
sternest critics. 

The first useful natural language (NL) system 


“was probably Bill Wood’s Lunar (1970). ‘This was 


a system that enabled geologists to ask questions 
about samples of moon rocks retrieved by the 
Apollo missions. Lunar could cope with requests 
like: 


Give me all analyses of sample 10046 for hydrogen. 
and 
Give me them for oxygen. 


where them in the second sentence refers back to all 


analyses of sample 10046 in the first. 
Undoubtedly, the most impressive NL system 

to date is Winograd’s SHDRLU program of 1972. 

This tour de forceis perhaps not the breakthrough 

it seemed at the time, but it produced one of the 

most memorable man-machine interchanges in 
print. 

20. Why? (Meaning: Why did you pick up the green 

_ pyramid?) 
TO GET RID OF IT. 
26. Why did you do that? 
TO CLEAN OFF THE RED CUBE. 

2/. Why did you clean off that cube? 

TO PUT IT ON A LARGE GREEN CUBE. 

28. Whydidyoudothat? | : | 
TO STACK UP THE RED CUBE, A LARGE RED 
BLOCK AND ALARGE GREEN CUBE. 

29. Why did you do that? 

BECAUSE YOU ASKED ME TO. 


Winograd’s program allowed the user to control 
the operation of a simulated robot in a micro- 
world containing children’s building blocks by 
typing at a console in English. Extending his 
techniques to deal with speech rather than type, 
and to more complex real-life domains rather than 
a toy world, has proved difficult. Progress since 
then has been steady but unspectacular. 

The systems described so far have all dealt with 
the interpretation of textual. material. But that is 
only one of the four principal aspects of language 
use, each of which has different characteristics. 
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Text is easier to deal with than speech since written 
language has an existing digital coding scheme 
whereas spoken language demands difficult 
acoustic/ phonetic transformations. Production of 
language in either of its forms is considerably 
easier than its understanding since the latter 
almost invariably entails filling in a large amount 
of implicit information. Hence the most 
challenging of the four tasks is the understanding 
of spoken language. 

It is worth stressing this point because it is 
possible to obtain devices that recognise words 
with high reliability (say 96 to 99 per cent) spoken 
by asmall selection of speakers (one to four) from 
a limited vocabulary (typically 64 to 128 words). 
There is a great difference between isolated word 
recognition and continuous speech 
understanding. Some of the major problems are: 


1. Ambiguity: ‘rose’ is not ‘rows’ or ‘toes’. 

2. Background noise: filtering out the 
surrounding sound. 

3. Variations between speakers: regional 
accents and dialects. 

4. Variations in the same speaker over time: 
happy, depressed, excited tones of voice. 

5. Segmentation: 
‘Onlycomputersputgapsbetweenwords.’ 


The most serious of these are numbers 1, 4 and 5. 
Ambiguity is not just a matter of homophones like 
‘see’ and ‘sea’. Pronouns such as ‘it’ and ‘him’ are 
inherently ambiguous: their reference can only be 
disentangled by examining the context of the 
dialogue. On top of this, there are linguistic 
ambiguities as exemplified in the phrase: “Those 
things over there are my husband’s’ — just remove 
the apostrophe and the meaning of the sentence 
changes entirely. 

As for variations in a single speaker, you can see 
the problem if you imagine that you have installed 
a voice-lock on your door. During the training 
phase you might subject it to several examples of 
yourself by saying: ‘Open Sesame. The 
mechanism will average them and save the 
averaged voiceprint as a reference template. All is 
fine until you rush home one night and 
breathlessly command: ‘Open Sesame!’, to which 
the computer-controlled door will calmly reply: 
‘Identity violation: access denied’. 

The problem of segmentation arises because 
people run words together. Deciding where to 
chop up a continuous acoustic signal into words 
cannot be done on the basis of acoustical 
information alone. In general, it requires 


contributions from four sources of information. 
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@ Acoustic : the speech waveform. 

@ Syntactic : the rules of grammar. 

@ Semantic : what makes sense. 

@ Pragmatic : what the speaker might want. 


The Hearsay system, constructed at Carnegie- 
Mellon University in 1976 and subsequently 
refined, makes use of all four sources of 
knowledge. Its task domain is chess, and the user 
can play the computer by issuing commands 
through speech. 

Each level of linguistic information contributes 
to the ‘understanding’ of an input by helping to 
eliminate implausible hypotheses about what was 
said. This can be illustrated by an example: 


‘Queen to King 2’. 
On the basis of the sound signal alone, the 
following utterances are possible. 


Spoken Command Syntactically Valid? 


1, KtoKto no 
2. KiOnKe yes 
3. Kie-O4o no 
4... KtoQ2 yes 
5.  K2Kto no 
6. K2K2 no 
1. 12010 no 
8. K2Q2 no 
9. QtoKto no 
10;— G to-K2 yes 
11. QtoQto no 
12. QtoQ2 yes 
13. Q2Kto no 
14. Q2K2 no 
15. 02010 no 
16. Q2Q2 no 


As you can see, it can’t reliably tell the difference 
between ‘two’ and ‘to’ or ‘K(ing)’ and ‘Q(ueen)’. 
However, the system makes the assumption that 
the utterance was a legal “chess sentence’, and 
according to the syntax of that restricted language, 
only items 2, 4, 10 and 12 are grammatical. The 
rest can be eliminated. 

It makes a further (and stronger) assumption 
that the speaker is trying to play legal chess. Let’s 
suppose, in this particular game, that sentences 4 
and 12 are illegal because the player has a piece (a 
pawn, for example) on Q2 and will, of course, not 
try to take it. That move fails the semantic test: it is 
a nonsense sentence in the chess language. 

Finally, there are two candidates left (numbers 2 
and 10). How does the system choose between 
them? There may be a preference from the sound 
signals but it is unlikely to be decisive. In general, it 
invokes pragmatic information: it makes a very 
strong assumption — namely, that the player is 
trying to win the game. If it sees that (according to 
its own chess-evaluating algorithms) K to K2 is 
virtually suicidal, while Q to K2 is a strong move, it 
will pick this move as its interpretation. 

We conclude this discussion by considering a 
small example that owes more to Eliza’s simple 
keyword-matching techniques than to more 
sophisticated later work. The database used in our 
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enquiry program is a table of the 16 largest British 


companies (1982-83 data). All queries are 
interpreted by trying to find which firm or which 
chairman is referred to and which attribute of that 
company or individual is desired. It can answer 
questions like: 


Who is the chairman of ICI? 
What was GEC’s profit figure? 


But it cannot give a sensible reply to more > complex 
questions like: 


Did oil companies make bigger profits per unit 
than tobacco companies? 


You may like to consider some of the 
improvements necessary if it is to be capable of 
responding to questions of this kind (as the better 
modern systems do). 
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Natural Language Program 
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2155 
S135 
S148 
St. 
S144 
Last. 
Si4e 
oT 
Si Se 
5196 
Soa 
Boo5 
S330 
Soda 
ease 


S360 <t= 


aa 


APPLICATION / ARTIFICIAL INTELLIGENCE 


GOSUE 1866 = REM read the database | 
BOSUE SSH0:REM FESO SYNONIMS Onie 

eS : 
PRINT 'l know 8 [i ttle about UR companies: © 
PRINT “Sek me for informatian about them. 
REM #406 Meaitl LOOP xeee 

TMPUT OS 

[FP Of="" THEN GUO 228 

GOSUB SURG - REM find subject 


IF OF <i THEN PRINT “Sorry, 1 don ¢ understand” 


GUSUE 4008 + REP tind attribute 


Te ATS) GND Ol>e THEN PRINT (1 don t know. f m atraide 


GOSUB SHU ~« REM make answer 
LAST ASLO. 
TP Gf<-°" THEN [oe 

PRIBNT “Bye for mow!" 

ERO 

REM -= Data Input Routine: 
Cee 

Olbl DRScy Bes : REM ‘data base 
RES TORE 
RED See ce pate. RES 

READ AS 

TE Kees" THEN GOTO Lite. 
CHSC +I 

DBScl  Calexs 

PRINT x& 

FUR [vee TO F 

READ DRE CI. Cee 

NEXT 

fF REO 5 oR THEN Less 

PRING GAY bems peed tn. 
RE TURE 

REM == Topie-finding Routine: 
Ole 

TE LENS OSI cl THEN RETURN 
COeSe 

REM £2** SEEK COMPANY Se2e : 
COMSCON + I 

NE=DES (1 CUM) <GOSUB Sse0 

Te Sk THEN Qi=1 
NESDRS ce COS SGOSUR Ssuu 

Te Sk THEN OTS] 

[TF @Pe=8 SND COR CA THEN Su ae 
te GTS6 THEN RETURN 

COMS8 

REM ##*= SEEK CHAIRMAN «x= 
COUSSCOA+ i 

NGSbRS6( 4, CO) sGOEUR Ssue 

Le SE THEN @r=3 

1F Oy <=6 AND COK<Ce THEN Sipe 
[TF O1eG THEN RETURN 

TF LASTMS=O THEN RETURN 


NS=" (bt SGOSUR Ss64:IF Sk THEN Gl=i: COMelLas Ti 


Ne=" fim’ :GUSUB Saua:[F SK THEN Giles: COeeia 
he they ".G0SUB 2500:1F SE THEN let: Coes 
Mé=" he <GOSUB Save: IF Sk THEN Gles: COMeLa 
RE TUR 


REM £885 SEER ROUTINE #<% 

iP LEMCHE DS LENC Obs THEN Skee 

REM fet put into lower case : 

Po os HE SRE FESE: 

FOR Peel FO LER COs) 

MIDS Os Ps 

TP ASC CNS) 864d AND ASE Res el THEN RSS C HRS CGS 


COURS 2+ 325 


S3e8 
S270 
S498 
eal 
S428 


BS=BSt xs 

NEXT 

FUR Pel 10 LENCK > 

ASeML DSCNS Po, 1 

TF ASCOXS) 964 AND ASC xkS1<%1 THEN x#=CHRE« Se 


FADES 1) 


aa se 
3448 
S450 
Sao 
Sasu 
Seg 
aeiu 
S426 
Re SU 
4040 
aa Se 
48 28 
Sars 
suse 
4809 
ease 
41a 
Si 26 
41 38 
aia 
4140 
4138 
Seog 
Sele 
a0 20 


ASHAt tA 

NET 
SK=INSTROBS Ad) 
| 


REM — Pett (pote finding Routine: 

Al=e 

1F Gl=0 THEN RETURN +: REM no use! 

Ax=o 

REM #8*s FIND ATTRIBUTE sexx 
AlSAT +] Woes"! 

REM #*** CHECK EACH SYNONYM se** 

YMee 

ASeAt | RSS SE CAH 

IF WOS="" THEN WDbeexe 

[Fe XS<e°*" THEN Ne@=xe:GOSUB SoaG :yveck 
TF AS<> 8" AND Yee THEN 48 76 

IF Yeed AND AT<=? THEN 4846 

1F Aloe AND Ya=ee THEN AT=e :; REM fai led. 
1F Al=e AND GleS THEN AT=i 


RETURN 
REM -- S&nswering machine: 
1F Q’Al = @ THEN RETURN 


iF O@1=3 OR AlT=S THEN PRINT OREc 4d COA: ic ec 


hairman of ";0B#¢1,CO);"." 


au38 
o4 a8 


[fF Ul=s AND Al=1 OR Al=3 [HEN RETURN 
PRINT (“The = UND: " Gt ~.ORe ce Cosi: ' 1s << Ob 


£0AT+1 ,COK): 


DU Su 
me 

ou re 
SYGe 
2268 


TF Ales AND Alc? THEN PRINT = million pounds 


PRINT "." 
RETURN 
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SUeo : 

BOB REM company information: 

S20 DATS BF, Eritish Fetroleum Co. ,011,P1 Walter 
$, 34583, 1 7306, 5597 1451 58 , Uk 

8030 DATA Shel UK, Shell Transport &  .. . 


Sir Peter Baxendal! ,2171@,11%62,3246,111111,UK 


SU48 DATA Gal. B.A.T. industr es’ Tobacce,'2. She 


_ ehy",11318,4607, 1018, 178000 ,UK 
8858 Data iCl, imperial Chemical [ndustries,Petroc 
hemicals,’J.H. Harvey-Jones” ,7358,5421 ,724,1 23800, 


UK 
SU40 DATA Shell ,Roxvel Dutch Shel! ,0i1, JM Ralsman, 


—6665,3704 1206.1 7027 ,Hol land 
670 DATA E&eo,Eeco Petroleum Ca. 01! AW . 
6189, 2871 1 SiS, 7428, USA 


e080 DATA Unilever, Uo | lever ble Food, Durham, 544 


«72434, 406, 49233, Uk 
6090 DATA imperial imper iat Group,Tebacco, GC Kent 


79614, 1126 ,192. 101386 .Uk 

Blue DATA Fk OF & 0 Steam Navigatian Go. ,Shippt 
no, JM Sterling. 4206, Ser 77, 125i Uk 

Billi DAIA GEC, General Electric bo. Electrical Eng 


_ineering, apneic Weinstock, 4176,2133,621 .leee¢c.Uk 


Biz@ DATA Grand Met, Grand Me trope) ten, Hotels, SG 


so Grinstead, a849, 2950 , 346, 129454, UK 


SlS@ DATA RIZ Ric Pinte eine Corporation, Minipg,® 


ie Anthony Toke 3488 5155, 452, 72014,UK 


S146 OSTA Ford, Ford Motor ca Mater Vehicles, SEG 
Toy, 3267 ,2143, 278, 67508 USA 

150 DATA Bri ti sn Levi and, British Leyland pic Mot 
or Vehicles,Sir Michae) Eduardes 3072, 1346,-162,16 


5a42,UK 


6166 GAIA GWH,Geor ae Wes fon Holdings .Food,GH West 


on, 2781,817,157,72632,UK 


Si76 OATA Beri stord,S & W Beri sford,Commodi ties,& 


8 Margul ies,2727,788,57,31 78 ,UK 


S466 OATA '#! 

S560 REMxees REM READ SYNONTMS DATA <e5* 

B510 DIM Sec seo 

S520 FOR Pasi TO S1:READ SSCP INEXT FA 

8530 RETURN 

e540 : 

SOuH REM —-- synonyms: 

$018 DATA company, firm,organization,corporstion,* 

PH2e DATA business activity, trade, trading, /aduetr 
y Kind make , * 

SOS0 DATA chairmen Does, €uoremo,director,in charg 
@ beac, | eader runs ,who, * 

PEGG DATA turnover, amount sales. gross, income , how 
big, * 

O50 DATA capital money share, Ualue, interest cash 


"Oo8 DIA profit tax .nede, oss, ose perform, fe tur 

hy, Gain, hoe much. * 

FO76 DATA workforce ,emplorees ,emplay, iob,peoap le] .h 
OW Many Worker . * 

FOSG DATA countrys, nation, uk bri tich, fore ian,contr 
ol ,Origin where, * 

CHSu : 


a 
4100 IF ao yee AND YY=0 THEN g0 T0 4070 
. DIM Oe o 
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KEVIN JONES 


PROGRAM 


A programis a sequence of instructions given to a 
computer system intended to make the system 
perform a task (or series of tasks), which can be 
executed by the central processing unit. A 
program should, in theory, arrange these 
instructions in a logical sequence and in a way that 
can be understood by the part of the computer that 
decodes program instructions. 

Generally, a program is input via the computer’s 
keyboard and stored somewhere in memory — 
most computers have a specific area in which 
programs are stored. What happens then depends 
very much on the type of program it is and in what 
format it has been written. 

All programs are written in languages. These 
can range from simple low-level types like 
Assembly language or ForTH to one of the higher 
level languages such as PASCAL Or COBOL — even 
the simple set of hexadecimal instructions to the 
processor can be considered as being a language. 
All programming languages have common 
attributes. Each, for example, consists of a precise 


syntax and vocabulary that cannot be deviated 


from in the way our spoken languages can. 
Many programming languages require the 

source code to be ‘compiled’ once the program has 

been written into the computer. This means that 


the list of instructions is placed in various parts of 


the computer’s memory in order to be executed. 
Variables will be assigned to their respective 
positions and labels will be given address 
locations. Often, any mistakes in the program will 
be noticed by the compiler and will have to be 
corrected before it can be run or executed. 


PROGRAM COUNTER 

This is a register held within the central processing 
unit that holds the address of the next byte to be 
fetched from memory. Normally, the program 
counter (also known as the instruction counter) is 
incremented after each byte. However, where the 








program encounters a branch instruction, the 
program counter will be modified accordingly. 


PROGRAM DEVELOPMENT 
SYSTEM 


Usually a suite of programs intended for 
microcomputers and mainframes, a program 
development system will contain software for the 
editing, compiling, debugging and testing of 
programs. There is also a library of routines that 
can be added to the program under development. 

The program development system will also have a 
number of commands at its disposal to make use 
of the various facilities of the system. 


PROLOG 
In the field of artificial ingeanibened: the 
programming language PROLOG (an acronym for 
PROgramming in LOGic) is one of the principal 
languages used (see our series On PROLOG 
beginning on page 1272). The fact that. the 
Japanese Fifth | Generation computer 
development programme is based around this 
language is an indication of PROLOG’s importance. 
Based on ‘predicate logic’ — the relationships 
between constants — pRoLoG allows us to make 
the computer deduce information about these 
constants. As an example, suppose we have the 
relationship ‘children like apples. This is 
expressed in PROLOG as like (children, apples), in 
which like is the predicate and children and apples 
are the constants. (The entire relationship is— 
referred to as an ‘atom’ in PROLOG nomenclature. ) 
We can then query the computer as to whether 
children like apples — the response will be yes. 
In a procedural language, such as BASIC, we 
provide the computer with instructions on how to 
solve the problem. In PROLOG, however, the 
emphasis is on providing the computer with the 
information necessary for it to solve the problem 
by itself. 


PROM 


An acronym for Programmable Read Only 
Memory, a PROM is a semiconductor device in 
which the contents of the ROM are added after the 
device has been manufactured. The data or 
programs are added at a later date by passing 
currents from a machine, known as a PROM 
programmer, through the matrix that makes up the 
device. A voltage will be passed down the address 
pins of the PROM and then a much larger voltage 
will be sent down the data lines and seal the bit 
pattern in place at that address by fusing the links. 
Thus the data held in the addresses that make up 
the memory will be fixed. 

- Although some PROMs, such as ‘EPROMs’ 
(Erasable PROMs, see page 1044) can be erased 
by bombarding the chip with ultraviolet light 
(allowing them to be used again), the contents of 
most are not alterable. PROMs are widely used to 
test devices that are used in the manufacture of 
computers, and also by hobbyists who wish to 
store their own programs in ROM. 
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READY, STEADY... ’ 





Besides chess, the ancient Oriental game of 3 
Go has intrigued AI researchers because of 

its subtly complex qualities. We begin a 
project to develop a program to play Go, by 
first outlining the rules of the game and 
introducing some of its infinite nuances. 





Good chess-playing programs are now quite eee 
common and researchers in AI have turned to 
more complex games. One of these is the Oriental 
game of Go. Though the rules of the game are far 
simpler than chess, it is often regarded as being far 
more complex. After more than 20 years of 
research, the top programs still play at little better 
than novice level. 

During the series we will be developing a 
program to play the game. Though not highly 
proficient, the program provides a _ good 
introduction to the game, and should prove to be a 
worthy opponent for newcomers. The program 
has been specifically designed so that it may be 

easily modified and developed. 

Go is a two-player game, played on a board 
with 361 intersections, as shown in figure 1. The 
two players, one playing with black stones and the 
other with white, alternately place one of their 
stones on any vacant intersection of the board. 
Note that the stones are placed on the junctions of 
lines and not in the squares. 


HOW TO PLAY GO 

The object of the game is to surround territory 

Se intersections) with your own stones. To 
win, your stones must be surrounding the most 

territory at the end of the game. 

The first move in Go is always made by Black, 
who is usually the weaker player. If there is a 
significant difference between the playing 
strengths of the two players, Black’s first move will 


If one or more of a stone’s adjacent points are filled 
with other stones of the same colour, they are said 
to be connected and form a group. Diagonal 
connections do not form links between stones: the 
following figure, for example, shows four groups, 
not three: 











Groups are more difficult to capture than single 
stones because they must be removed as single 
units. Thus Black might have to fill 15 liberty 
points in order to capture a group of whitestones. = 





} 


This is really all you need to know in order to play 
the game, but there are a few complications that 
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stones can also be captured and removed from the 
board. Any vacant point immediately adjacent to 
a stone (along a line) is called a /iberty. Thus any 
single stone can have two, three or four liberties 
depending upon its position on the board (see 
figure 2). In order to capture an opposing stone, 
you must place your own piece on all the opposing 
stone’s liberties. Thus in figure 3, if Black’s last 
move was to fill the last liberty of the white stone, 
the latter would be removed from the board. All 
captured stones are added to the player’s score. 
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points marked in figure 6 would cause this 
situation. This move, known as ‘suicide, is 
prohibited in Go. 


Ko: This means ‘infinity’ and refers to a possible 
situation in which stones could be placed and 
captured indefinitely. The two diagrams following 
are common occurrences of this. 





To cater for this situation, the rule of Ko prohibits a 
player from placing a stone such that ‘the 
immediately prior’ position is produced. This rule 
brings into effect what are known as ‘Ko fights’. If 
White is prevented from immediately recapturing 
a stone because of the Ko rule, then obviously an 
intermediate stone must be played. 

This stone will usually be placed in a position 
that threatens either a black stone, or group, 
elsewhere on the board, and is known as a Sente 
(forcing a reply). Thus Black cannot fill the Ko 
point, which ends the Ko fight, and White is able to 
recapture the black Ko stone. Black is now 
prevented from immediately recapturing and 
must try to find a Sente move if the Ko fight is to 
continue. 


‘LIFE AND DEATH’ 

A very important concept resulting from these 
rules is that of “Life and Death’ for a group of 
stones. We have already seen that it is impossible 
for Black to play on the vacant intersection in the 
middle of the group (see figure 6). Notice, 
however, that if White were to play here, the black 
group would be captured. 

It would also eventuate that if the black group 
was not surrounded by white stones, then White 
could not place a stone on this point. It follows that 
if White wants to capture this black group, the very 
last white stone placed must be on this vacant 
point after having entirely surrounded the black 
group with white stones. ‘The black group would 
then be removed from the board, giving the white 
stone just placed four liberty points. 

A point that is surrounded by stones of the same 
colour in this way is known as an eye, and it is 
always the case that the eye must be the last liberty 
filled to capture the group. 

By taking this concept one stage further, we can 
imagine a group containing two eyes, such as the 
white group shown in figure 8. To capture the 
group, the last black stone must fill both eyes 
simultaneously — but this is impossible, because 
Black can only place one stone at a time! 


Consequently, this group (and any containing at 
least two eyes) is safe from capture, and will 
remain on the board until the end of the game 
(providing, of course, that White is not stupid 
enough to fill the eyes!). 





It is not even necessary that the eyes be contained 
in one group. The three white groups in figure 9 
share between them three eyes, and all white 
stones are safe from capture. You must, however, 
be careful. The similar formation in figure 10 (only 
one stone different) can be captured by Black — 
using the sequence shown. The lowest of the three 
eyes can, in fact, be infiltrated by Black — this is 
known as a false eye. 


10 





All of these groups have had fully-developed eye 
formations, but in practice it is not necessary to 
form two eyes for each group, but merely to have 
the potential to do so if attacked. 

The game ends by mutual consent of the 
players, when both feel there is no more to be 
gained on either side. This rather ambiguous 
ending has caused many problems for Go 
programs, which still find it very difficult to decide 
when the game should finish. The game is also 
deemed finished if both players ‘pass’ their move, 
returning control to the opponent. Passing is 
allowed by either player at any stage during the 
game, but is rarely used. 
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MELODIC LINES 





We continue our MIDI interface project for 
the Commodore 64 and BBC Micro by 
outlining the second phase of construction: 
connecting the ACIA chip pins to the 
computer’s data, control and power lines. 
We also outline a simple method of testing 
the finished board from BASIC 





The Asynchronous Communications intanitice 
Adaptor (ACIA) chip forms the basis of the MIDI 
interface and is compatible with the 6502 and 
6510 processors used by the BBC Micro and 
Commodore 64, respectively. We can therefore 
link the processor’s data, address and control lines 
directly to the chip pins. 

The finished board is designed to plug directly 
into the Commodore 64’s expansion port. The 
BBC Micro version should be connected to the 
tube port on the underside of the computer via a 
40-way ribbon cable and appropriate connectors. 
We will outline the connections that must be made 
for each micro separately. Once the board has 
been constructed, there are some simple tests that 
can be made to ensure that it is working correctly. 
These involve placing data in the ACIA chip 
registers and performing a simple loop test. 

Address decoding is necessary in order to 
access any peripheral that is connected to the main 
data bus, but which does not possess the same 
number of address lines as the CPU. Such devices 
usually have a ‘chip select’ pin that enables the 
device to use the data bus when the chip select line 
is active. The address lines connected to the device 
will then allow selection of different registers. 

Chip select signals for the various devices 
connected to the system are generated by 
decoding the most significant address lines. Each 
combination of bits on these address lines can be 
used to select a device uniquely. Thus the device’s 
internal registers will appear in the CPU’s memory 
map, allowing them to be accessed as though they 
were normal memory locations. However, care 
must be taken to ensure the addresses used by the 
device do not correspond to important registers 
used by the host computer’s operating system. 

The Commodore 64’s expansion port has two 
outputs, labelled |/01 and |/02. These lines go low 
when pages SDE and SDF, respectively, are 
accessed. By simply connecting the CS2 line on the 
ACIA chip to |/01, we can map the chip into page 
SDE. Because the ACIA is not connected to the 
address lines A1 to A7, the chip’s internal registers 
can be accessed by any address in the range SDE00 
to SDEFF. By connecting A0 directly to the ACIA’s 
register select pin, all even addresses will access the 
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transmit/receive data registers. The most obvious 
choice for the addresses is SDE00 (56832 decimal) 
and SDE01 (56833 decimal). 

The BBC Model B Micro offers two possible 
ports that can be used to connect the interface, 
each with its own advantages and disadvantages. 
The tube port allows us direct access to the data 
bus at 2MHz. An address decode line, NTUBE, is 
provided for addresses &FEEO to &FEFF. The 
drawback is that the BBC Micro checks to see if 
any devices are present on the tube by reading 
certain tube addresses when it is first powered up. 
If anything other than the second processor is 
attached, the computer will appear to hang up as it 
waits for data from the second processor. 

A professional answer to this problem would be 
to connect one of the high-order address lines to 
CSO on the chip. An alternative is to connect 
NTUBE to CS2 and plug the board into the tube 
port with the computer on. For simplicity, this is 
the solution chosen for this project. However, a 
further alternative is to use the 1MHz bus. Pins 
marked NPGFC and NPGFD are provided to map 
external devices into pages &FC and &FD and could 
be used in the same way as |/01 and |/02 are used in 
the Commodore 64 version. 

There are two disadvantages with using the 
1MHz bus: first, because the system clock is 
slowed down to 1MHz, ‘glitches’ are present on 
the two decode lines. A clean-up circuit (such as 
that described in section 28.5 of the advanced user 
guide for the BBC Micro) must be used to avoid 
this problem. The second problem is that there is 
no 5v power feed to the 1MHz bus. Power must 
therefore be derived from either the user port or 
the auxiliary power connector. 
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Testing The Board 


With the board plugged in, we Can now perform 
some simple tests to verify correct functioning of the 
board. A simple multimeter will be useful to isolate 
any faults in the unlikely event of the board failing 
any of the tests. If you havent got one, you will need 
to perform a close visual inspection of the board. 


1. If the computer refuses to function normally with 
the board inserted, check the following. 


Verify the vollage between the +5v and Ov lines on 
| the board is indeed 5v. If not, check that all the ICs 
| are inserted correctly. Examine the board for short 
circuits between the power rails. 


Remove the board from the computer and use the 
multimeter to check for short circuits Detween any ot 
the computer bus connections. 


2. When the computer appears to De functioning 
normally, connect a MIDI cable between the MIDI IN 
and MIDI OUT sockets using standard 5-pin DIN hi- 
fi connecting cables. lype in the following command 
(BBC Micro equivalent in brackets). 


PUK 500872 =| &IELU-o) 


This command places a 3 in the ACIA contro! 
register, which performs a master reset. Now type: 


PUKE 9080222 (| GFELU 610) 


This places the value $16 in the control register and 
configures the ACIA as follows: 


| © Disables receiver and transmitter interrupts 
(because we have no means of handling them yet). 
Defines the transmitted and received serial words 
as eight data bits plus one stop bit with no parity 
generation/checking. 
Defines the baud rate as the clock at pins 3 and 4 
divided by 64. (2MHz/64 = 31.25KHz, which Is the 
specified rate for MIDI). 


The ACIA should now be ready to receive and 
transmit data. Check this by reading the status 



































































































































































































































































































































register with: 


PAN) PEER GbG37) 
(PA) GP eed) 


You should read the value 2. This indicates that both 
transmit data register (bit 1 set) and the receive data 
register (bit Q clear) are empty. Since no data has 
been received and interrupts are disabled, the 
remaining status bits 2 to / should De clear. 


3. Send a byte from the transmit register through the 
cable and into the receive register with the 
command. 


PUKE SbG3. =| &tEE 4) 


where X is any number from zero to 255. [his 
places a value in the data register, to be transmitted. 


4 |n a fraction of the time it takes to type the next - 
command, the byte should have been received. Read 
the status register again. 


PRN) PEER 06607) 
(PRN &EEeD) 


The value should now be 3. Bit 1 will have cleared 
immediately after the last command (transmit 
register full) but will be set a short time afterwards, 
as soon as the transmit data register becomes ready 
for the next byte. Bit 0 will be set indicating that the 
byte has been received and can be read from the 
data register. Note there is a possible error: if bitQis 
not set, there is probably an open circuit in the 
transmission path that is holding the receiver input 
at a high level preventing from being detected. 


5. Having verified that a byte has been received, we 
can check to see if itis the same as the one 
transmitted by reading the data register. 


PAIN] PEEK (60035) 
(PRIN| 7 BREE] 


This read operation should return the same value X 
as was transmitted before. Steps 3 to 5 should be 
repeated with various values of X 
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Front Runner 

There have been few ‘third party’ 
suppliers of alternative storage 
systems to the Commodore 
cassette deck and disk drive, 
despite the criticisms of these 
machines. The Quick Data Drive 
is a ‘stringy floppy disk’ system 
that uses continuous loops of 
tape identical to those in the 
Rotronics Wafadrive. At around 
£100, the system is not 
particularly cheap, but it is half 
the price of the Commodore disk 
drive, and in many applications 
is considerably faster 


HARDWARE’ QUICK DATA DRIVE 


FAST MOVER 


Commodore 64 owners have had to use, for 
the most part, Commodore’s own storage 
devices, which lack both performance and 
storage capacity. With the introduction of 
the Phonemark 8500 Quick Data Drive, 
which uses stringy floppy wafers, the 
situation has dramatically improved. 


Because many home computer enthusiasts are 
considering purchasing faster and more efficient 
methods of accessing their programs, 
manufacturers are producing a wide range of mass 
storage devices aimed at the most popular home 
micros. Among these is the Phonemark 8500 
Quick Data Drive from Dean Electronics, made 
for the Commodore 64 and Vic-20. 

This device is a close relative of the Rotronics 
Wafadrive (see page 1129) designed for the 
Sinclair Spectrum. The drives for both were 
produced by BSR Electronics and each uses 
identical ‘wafers’. 

The standard Commodore 1541 disk drive, like 
the cassette drive, is notoriously slow. This is due 
not to the disk drive itself but the method by which 
the computer loads data. Much of the 
Commodore 64’s operating system is inherited 
from the PET business machines of the mid- 
1970s, when mass storage systems, particularly 
cassette drives, were extremely unreliable as data 
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storage devices. When Commodore turned its 
attention to providing back-up storage for the 
PET series, it decided to provide its own cassette 
drive and incorporate a complex series of checks 
to ensure that the data being loaded was correct. 
While this increased the reliability of LOADing, it 
was at the expense of access speed. This system 
was carried over to the Vic-20 and later the 
Commodore 64. 





drive can always be purchased and connected to 
provide dual-drive capability. 


THE OPERATING SYSTEM 


The fact that the drive plugs into the cassette port 
does not mean that you cannot have a cassette 
deck running at the same time. There is a cassette 
edge connector on the back of the Data Drive 
allowing cassette drives, or a second Quick Data, 
Drive, to be daisy-chained together. 

Although the Rotronics Wafadrive and the 
Quick Data Drive have similar appearances, they 
have very different methods of operation, 
reflecting the differences in the computers for 
which they were designed. Whereas the Wafadrive 
has its operating system held in ROM (emulating 
the ROMs on the Interface 1), the Quick Data 
Drive Operating S ystem (QOS) is held on a wafer. 
In order to LOAD the QOS into the computer, you 
must press Shift/Run (as you would when 
LOADing a normal cassette). When the screen 















prompt PRESS PLAY ON TAPE appears, you then 
press a small button on the back of the drive that 
autoboots the system. Once this has been done, 
the QOS will perform it automatically for 
subsequent accesses. 

The programs that make up the QOS are 
loaded into two separate areas of memory. First, 
the machine code routines for LOADing, SAVEing 
and searching programs are stored between 
addresses C000 and CFFF towards the top of 
memory (normally used for machine code 
programs). It is this module of the QOS that results 
in the increased LOADing speed of the drive. 

Although the QOS does not implement any 
commands of its own (using instead those already 
available in the Commodore Operating System 


ROM), it will intercept the routines that deal with 


ACTIBDE MEMGRY 


a 





EOOO-FFFF 
DOOO-DFFF 


COOO-CFFF 


BOOO-BFFF 


ROOO-AFFF 


8000-9SFFF 


4000-?FFF 


0000-3FFF 


normal loading and insert its own. 

The other part of the Quick Operating System is 
the File Management Utility (FMU), which 
contains a number of useful routines. This is kept 
in the top half of the eight Kbytes of Shadow 
Memory underneath the Basic ROM — between 
addresses B000 and AFFF. The bottom four Kbytes 
between A000 and AFFF are used as a sequential file 
buffer that is used by the FMU. 

Because the FMU is stored in the area of 
memory under the BAsIC ROM, you cannot use 
both at the same time. In order to call it from 
memory, the command LOAD ‘FMU’ must be 
executed. This simply ‘banks’ out the Basic ROM 
and enters the FMU. 

Undoubtedly, the Quick Data Drive’s 
operations are much faster than standard cassette 
methods. As an example, the New World 
simulation game featured in our Programming 
Projects series (beginning on page 1026) was used 
as a benchtest. The complete 25 Kbyte program, 





A Quick Memory 

The Quick Data Drive does not 
keep its operating system in 
ROM but has to LOAD it from a 
systems wafer. The various 
components are installed in two 
separate areas of memory. The 
first, the Quick Operating 
System (QOS) is LOADed into 
the area usually reserved for 
machine code programs. The 
other part of the system, the File 
Management Utility (FMU) is 
held in the ‘shadow RAM’ 
behind the BASIC ROM. Also 
contained here is a file buffer 
where programs are loaded 
before they are SAVED onto 
another medium 





requiring over nine minutes to load from cassette 
and one and a half minutes from disk, took a mere 
30 seconds to LOAD from the Quick Data Drive — a 
considerable improvement. However, as with all 
tape loop-based systems, much depends upon 
where the drive’s read/write head is in relation to 
the beginning of the program. 

The Quick Operating System finds the required 
data files by checking each of the heading blocks 
on the tape. When a wafer is formatted, the 
operating system will divide the tape into blocks, 
each with its own filename section. When it is 
required to load a file into the computer, it will 
search until it finds the block containing the first 
part of the file, load it and then find the second. 

Similarly, when asked to display a directory of — 
the wafer, the QOS will read each of the filenames 


operating system and crash the program. 

This design feature means that while it is 
possible to copy your own programs, it is not, as 
yet, possible to transfer commercial software. If 
the Quick Data Drive sells in sufficient quantities, 
however, there will doubtless be a program 
produced to do so. 

Until then, much depends on Dean Electronics’ 
ability to persuade software houses to sell their 
games and applications on wafers. In this respect, 
they may find that the Rotronics Wafadrive will 
prove a valuable ally — software companies will 
thus be able to purchase larger quantities of wafers 
at larger discounts when they find that they can 
place both their Commodore 64 and Sinclair 
Spectrum software on the same storage medium. 

Although it is still early, the company has had a 
measure of success. Some games, such as Epyx’s 
highly rated Impossible Mission (see page 1220), 
are already available on wafer, but a much wider 
software base will be necessary. 
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In this first part of a two-part series on 
program generators, we look at the benefits 
of using such a system. We present an 
overview of four packages, and take a 
detailed look at the operation of two of 
them — Sycero and The Last One. 





A program that takes the hard work and 


frustration out of programming, finishing up with 
lines of code that execute perfectly, first time, 
without debugging or syntax error messages, 
would seem like a dream to every first-time 
programmer (and probably to more experienced 
ones as well). 

In a sense, of course, everyone who writes a 
BASIC program is already using a program-writing 
program: whether it is resident in ROM or LOADed 
in from disk or tape, the BAsic interpreter takes 
lines typed in by the user and re-writes them into 
machine code that the computer can understand. 
This is a much easier process than entering the 
seemingly meaningless digits of machine code 
itself. Even if you have progressed to Assembly 
language programming, a similar process occurs 
when the Assembly mnemonics are translated into 
machine code. 

Most programmers will be familiar with the 
trick of making a program generate extra program 
lines either by using the keyboard buffer with an 
incrementing counter for the line-numbers, or by 
POKEing them into memory. This is often used by 
machine code programmers to PEEK the memory 
locations and write them into a loader program as 
DATA statements. 

Some languages, for instance COMAL (see page 
1122), have built-in error-checking and will refuse 
to accept a line of code that is incorrectly entered, 
so that typing PRNT when you meant PRINT will not 
get through. Fortu will refuse an instruction that 
uses a word not in its basic vocabulary or not 
previously defined by the user. Loco has a similar 
capacity to stay within its own limitations. 

However, the facilities just noted will still not 
enable you, for example, to instruct the computer 
to write a program to calculate your income tax. 
But the growth of systems that mimic or appear to 
incorporate some level of artificial intelligence 
makes this seem less remote a possibility. There is a 
program, for instance, called Microtext, which can 
be used to guide a non-technical user through 
complex technical tasks. It can also be used to 
generate interactive teaching aids, fault-finding 
programs, questionnaires *~ and information 
retrieval software. By using an ‘authoring’ system 
to create an application, with an active screen 
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editor available during testing, the resulting 
software will then be ‘published’ and turned into a 
run-time only system that cannot be modified by 
the user. 

Microtext is generally available only for the 
more expensive CP/M machines — making the 
availability of a sophisticated screen editor a 
valuable facility — but it has also been made 
available at a much lower price (under £350) for 
the ‘Tatung Einstein. 


THE QUILL AND ILLUSTRATOR 
Another remarkably sophisticated program- 
generator is The Quill (see page 42), specifically 
designed for those writing adventure games. This 
allows you to set up and edit a database of 
information — locations, objects, how they can be 
manipulated and so on — and incorporate it into 
an Assembly language program that should RUN 
first time without crashing. 

The Quill has recently been joined by 
Illustrator, which adds graphics to text adventures. 
The Quill is available for the Sinclair Spectrum, 
Amstrad 464, Commodore 64 and Oric, and 
Illustrator is available for the Spectrum and 
Amstrad, and will soon be produced for the 
Commodore machine as well. Despite its low cost, 
The Quill is good enough to have been used to 
write many commercial adventure games, most 
notably Hampstead, by Melbourne House. 

Though both are technically program- 
generators, to the micro industry there are just two 
programs that actually write programs: the rather 
boastfully-titled The Last One, which, when it was 
announced, was touted as the last software you 
would ever need to buy, and the rather more 
powerful (though slightly less friendly) Sycero. 

TLO, as its distributors now prefer to describe 
it, was originally written for 64 Kbyte CP/M 
machines. This is evident as it has the same sort of 
constant reference to disk overlays that makes 
WordStar so slow. It is now available for MS-DOS 
machines with a minimum of 256Kbytes of RAM, 
but while this permits many more sophisticated 
features to be added, it still runs at a slightly 
sluggish pace. 

Its writers clam to have incorporated some 
level of artificial intelligence in the program. 







































ne aa 
Certainly, if you boot it up with a kind of Basic 
other than what it is looking for, it will correctly 
identify the DOS disk in any error message 

Though superficially similar (in that they are 
both program generators), Sycero and The Last 
One are actually quite different in conception, 
scope and the way they approach the problem of 
clarifying the user’s needs in order to produce 
usable (and transportable) code. They are also 
similar in that they both generate programs in 
BASIC and that they are particularly well-suited for 
the input, processing, storage, retrieval and 
printing out of data. They are both different from 
other programs that perform sophisticated 
database functions because the resulting code will 
run independently of the generating system. 

In one sense, TLO is geared to the needs of 
today’s users, because it makes the (probably 
correct) assumption that you will prefer to do all 
your thinking on screen, doing away with notepad 
calculations and preparation. But using Sycero 
and TLO in this manner does not make full use of 
their potential. The Sycero seven-point plan of 
action stresses the importance of preparatory 
planning: 


e Plan 

e Specify system 

e Draw screens 

e Check data 

e Define program 

e Produce print-out 
e Generate program 


And both Sycero and TLO stress the point quite 
clearly in their manuals: organisation and 
preparatory planning are essential to good 
programming. First, Sycero: 


‘Correcting mistakes due to bad design can 
take longer than writing the system in the first 
place. It is always tempting to spend five 
minutes thinking about a problem and then, 
Sycero disks in hand, rush off to your 
computer and make up your system as you go 
along. This is not a good approach.’ 


. you should always start by making a 
comprehensive list of everything you want the 
computer to produce for you, in terms of what 


electrical systems. T 





testing program on 
asks the user quest 


program on the right te 
your knowledge of the co 
procedure when trapped in 
burning hotel. Note that both 
of these programs depend on 
the computer interacting with 
the user and then measuring 
the user’s responses against a 
database of knowledge held in 
its memory. This sort of 
application is ideal for 
program generators 


you want to see on the screen (‘on-line’ 
information) and what you want in the way of 
hard copy print-outs (‘reports’). Only when 
you have established what you want out of the 
system should you decide what information 
you need to produce the output.’ 


TLO is less specific but equally to the point: 


‘Plan out the over-all flow of your 
program and anticipate the mistakes that the 
end-user is going to make. Then prepare to 
catch these safely. In fact, design your program 
as thoroughly as you would plan any other 
task. As a general rule, it is easier to start out 
by writing a number of short programs, linked 
together with a simple menu which calls each 
of them up in turn when they are needed — 
later on you will find that this modular 
approach makes it possible to plan and create 
large and complex programs with ease.’ 


Neither of these packages will generate just any 
kind of program. They won't produce any kind of 
game, of course — not even a text-only adventure 
— nor will they generate a word processor or 
spreadsheet. Their strengths lie in enabling you to 
manipulate virtually any kind of data, perform 
calculations upon it (which could be anything 
from a simple extraction of the VAT element from 
a gross sum, to a long and complex engineering 
equation), store it, retrieve it and print it. In this 
respect, they are both exceedingly powerful. 

It is arguable as to whether they work as well as a 
straight database management program like 
dBase II (see pages 1152 and 1186), but it is 
undeniable that they are easier and friendlier to 
use than such a program, in which its 
unfriendliness is often directly proportional to its 
power. How well Sycero and TLO actually work, 
and how easy they are to use, is something we will 
examine in the next instalment. 
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Lisp Implementations 


Despite the increasing interest 
shown in LISP, there are 

~ currently few affordable 
versions of the language for 
micro users. Acornsoft LISP is 
available for the BBC Micro and 
Acorn Electron for under £20, 
though most users will find that 
they have to buy the LISP User 
Guide, which costs a further 
£7.50. 

Other micros are less well 
catered for. There are, however, 
a number of CP/M versions of 
the language — notably 
Toolworks Lisp/80 (at around 
£50) and iLISP {around £80). 
Another CP/M version, 
Microsoft’s muLISP-83, is 


considerably more expensive, 


retailing at about £200. 

_ The CP/M-based interpreters 
mentioned above should run on 
most home micros supporting 
CP/M (Memotech, Einstein, 
etc), although Amstrad owners 

~ will not be able to use them due 

to lack of memory space (the 
minimum required is 48K). 

Toolworks is probably the best 

value, with a storage space of 

approximately 3,600 list cells 
and 11,000 atom name 
characters in 48K. All the 
programs may be purchased 
from Grey Matter Ltd, 4 Prigg 

Meadow, Ashburton, Devon, 

TQ13 7DF 





Based around lists that can represent 
either data or functions, Lisp allows the 
programmer to adapt the language to 
almost every application. We begin here a 
Series On Lisp, outlining its use of lists and 
seeing why it has found so much 
acceptance in the field of artificial 
intelligence. 


Lisp has become quite popular in recent years, 
mainly because of its inclusion in research and 
development within the field of artificial 
intelligence. As interest in the language 
increased, it became apparent that Lisp could 
act as a general-purpose language with a wide 
variety of applications. 

This realisation generated a huge number of 
Lisp implementations with many diverse 
applications, from operating system and 
compiler writing through to adventure game 
writing. One unfortunate consequence of 
this proliferation of the language is that, as 
with many other languages, there are now 
many Lisp dialects. Despite this, most Lisp 
implementations are reasonably standard 
(because of its simple and straight forward 
structure) and translating Lisp from one 
machine to another is usually quite easy. 

One of the problem areas youre most likely 
to come across when using Lisp.is the lack of a 
certain function or instruction. This is mainly 
due to the lack of any official standard, leaving 
only those functions the programmers feel to 
be the most important. However, as we will 
see, it is extremely easy to extend the language, 
by adding any new instructions that you may 
require. 

Lisp is entirely different from the more 
common languages, such as PASCAL, FORTRAN 
and BASIC. It has a unique and very simple and 
uniform syntax structure. This structure makes 
Lisp ideal for data manipulation and matching 
problems. 

The inherent list structure is easily adaptable 
to all the major computer information 
structures, allowing the language to be used for 
searching and sorting, arithmetic functions and 
even game playing. In addition, most 
microcomputers support special instructions 
to make use of their own sound and graphics 
features. This is certainly the case with 
Acornsoft Lisp for the BBC Micro, which we 
will be using in this series. Don’t worry if you 
have a different version of the language 
because you'll find that everything is directly 
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ENTER THE LISTS 


transferable. 

The basis of Lisp, as you might expect, is the 
list data structure — the language’s name 
derives from the term ‘list processing’. A list is, 
in some ways, similar to the more familiar 
‘array’ found on mcst micros. However, unlike 
the array, a list does not have any speczfic 
length. 

Any list of items may be shown by enclosing 
it in parentheses, in the form: 


(abcde...) 


where a, b, c and so on are the list’s elements. 
The technical term for these is atoms, and they 
may be numeric data, non-numeric (character 
data or variables) or even another list. Note 
that we do not separate elements of a list from 
each other by using commas — we use spaces 
instead. 

Operations are performed on lists using 
functions, in much the same way as a BASIC 
function (DEF FN command) performs an 
operation on its arguments to produce a result. 
A function is written in the form: 


(funcabcd...) 


where func is the function name and a, b, c and 
so on are its arguments. As you can see, the 
function looks very much like the first element 
of the list. 

So, for example, a list consisting of the first 
six prime numbers would be written as: 


(1235/7 11) 


If we wanted to add these together in Basic, we 
would use: 


14+24+3454+7+11 


In Lisp, we would use the plus function and 
write: 


(plus 12357 11) 


which would return the answer 29. One of the 
features of the PLUS function is that it can take 
any number of arguments; so we could just as 
easily write: 


(PLUS 1 23 (PLUS 5 7 11)) 


Here, the innermost PLUS function is 
evaluated first and returns the answer 23. This 
is then used as the fourth argument for the 
outermost PLUS to return the final answer of 
29. An important point here is the ease with 
which functions may be nested. By nesting 
another function, SETQ, we can assign the 
result to the variable A: 





(SETQ A (PLUS 12357 11)) 


where SETQ has two arguments — the variable 
A and a function that evaluates to the integer 
29. Of course, SETQ is itself a function and so 
must return a result (in this case the value 29). 
So, the following assignment, which is illegal in 
most BASICS: 


LETB=14+2+3+5+/+11 
could be written in LIsP as: 


(SETQ B (SETQA (PLUS 1 2357 11))) 


By introducing the TIMES function, we can 
assign, say, two times the value of A to the 
variable B: 


(SETQ B (TIMES 2 (SETQA (PLUS 1 2357 11)))) 


the value 29, which would be assigned to the 
variable A by the innermost SETQ function. 
This function would, in turn, give the result 29, 
to be used as the second argument of the TIMES 
function. The new result of 58 would then be 
passed to the outermost SETQ function to place 
the value into the variable B. The entire 
expression would give the result 58, which 
could then be used for further functions, and 
so on. 

Notice that the brackets were becoming 
quite prolific in the last example. This is a 
feature of Lisp, and keeping track of all these 
brackets can be quite tedious, although if the 
program is well designed, they tend to take 
care of themselves. In addition, some LISP 
systems help out by informing you of the 
number of outstanding brackets that you have. 
For example, when using Acornsoft Lisp on the 
BBC Micro, the number of arrows given as the 
start of line prompt indicates the number of 
brackets that need closing to complete the 
expression. 

In the last expression we introduced the 
function TIMES, and gave it two arguments: the 


arguments. These, in turn, may themselves be 
lists with the first argument of each being a 
function that returns a result. The question 
now arises of what to do if we don’t want a 
function. It’s quite possible that we merely want 
to set up a list of data items, say, to use as a title. 
We can’t write: 


(HOME COMPUTER ADVANCED COURSE) 


as a list of four data items, because Lisp would 
try to evaluate HOME as a function name, with 
three arguments, and would think that each of 
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Lists Vs Arrays 

Lists have two main advantages 
Over arrays. First, memory does 
not need to be reserved for them. 
before it is needed; second, a 
list is a ‘dynamic’ structure, 
which is to say that it need have 
no fixed length and can shrink 
or expand to accommodate data 
during program execution. 
Furthermore, lists lend 
themselves more easily to the 
recursive procedures frequently 
encountered in Al programming 


the arguments (COMPUTER, ADVANCED and 
COURSE) were three variable names. We can 
tell Lisp not to evaluate an expression by 
preceding it with a single quote (’), so we 
would write the above as: 


‘(HOME COMPUTER ADVANCED COURSE) 


We could then assign this list to a variable: 


(SETQ MAG ’(HOME COMPUTER ADVANCED 
COURSE)) 


which would assign a list of four non-numeric 
items to the variable MAG. 


Note that there is no variable type in Lisp. If 


we were using BASIC, an integer variable would 
be of the form A%, a real variable A and a string 
variable AS. In Lisp, we don’t distinguish — 
between variables in this way, so all the 
following are legal expressions: 


(SETQA 3) 


A= the integer 3. 


integer value 2 and a list expression that had SETQ A COMPUTER) 
previously been seen to give the answer 29. SETQ A (PLUS 2 4 8)) 


( -A=the string ‘COMPUTER’. 
( 
However, TIMES, like PLUS, may have a (SETQA’(1 24 8)) 
( 
( 


A=the result of 2+4+8. 

A=the list (1 2 4 8). 

A= the list (HOME COMPUTER). 
A= the value of variable B. 


This would first of all evaluate PLUS to return 


variable number or arguments. Thus all the 


SETQ A ’(HOME COMPUTER)) 
following would be legal expressions: 7 


SETQ AB) 








(TIMES 1 2 48 16) 
(TIMES 1 2 48 (TIMES 4 4)) 
(TIMES 1 2 (TIMES 2 2) (TIMES 2 4) (PLUS 8 8)) 


and would all return the result 1024. 

In reality, most Lisp implementations have a 
limit on the number of arguments that these 
types of functions can have. For instance, 
Acornsoft Lisp has a limit of 28 arguments, and 


some other versions have even more stringent 


restrictions. 

By now we can see that an instruction in LISP 
is merely a list of items, in which the first 
element is the function to be performed, and 
the subsequent items are the function’s 


standard, few microcomputers support a 
version of Lisp that performs floating-point 


Though integer and string types are fairly 


arithmetic. In most cases, integer arithmetic is 
sufficient, and in the unlikely event that 
floating-point arithmetic is needed, it could no 
doubt be simulated using the standard 
integers. 


At this stage, it might seem difficult to 


realise how the language could be useful. In 
the next instalment, we will look at Lisp 
functions that can manipulate their data 
arguments, and see how the principles of 
recursion are used to make Lisp an extremely 
powerful language. 
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INSIDE INTERRUPTS 





The Z80 CPU offers the machine code 
programmer three maskable interrupt 
modes, which allow you to ‘borrow’ 
processor time when required. We examine 
the role of interrupts within the Spectrum’s 
OS, and see how they can be vectored to 
point to your own machine code routines. 





The interrupt-driven facilities of the Spectrum’s 
operating system are less straightforward than 
those used on the BBC Micro (see page 1077). 
Great care should be taken when using interrupts 
on the Spectrum. Should they be inadvertently 
disabled, or ‘turned off’, the functioning of the 
machine can be seriously affected — the keyboard 
may not be read, for example, or the system could 
crash during the execution of BASIC programs. 
The Z80 CPU at the heart of the Spectrum 
responds to two different types of interrupt — 
maskable and non-maskable (NMI) interrupts. 


_ The difference between these is quite simple. We 


can program the CPU to ignore a maskable 


interrupt signal, but the processor will always 
respond to a non-maskable interrupt. 

NMI interrupts are a little impractical to use on 
the Spectrum, because the NMI-handling ROM 
routine appears to be bugged. The original 
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intention of the designers of the OS was to allow 
the user to specify an address in the unused system 
variables at locations &5CB0 and &5CB1, and this 
was to be jumped to whenever the CPU received 
an NMI pulse. However, the usual response of 
the Z80 is to execute the machine code beginning 
at address &66, which generally results in a 
complete reset of the system. Consequently, we 
will concentrate our attention on the use of 
maskable interrupts. 

There are several ways in which the Z80 CPU 
can respond to a maskable interrupt, and these 
alternative responses are termed the modes of 
interrupt operation. Here, we will deal with only 
those modes that are of significance to the 
Spectrum operating system. 

On initialisation — which occurs when you turn 
the machine on or when you issue a NEW 
command — the CPU sets up interrupt mode 1, or 
IM 1. The Spectrum normally runs in this interrupt 
mode. The interrupt pulses are fed to the CPU by 
the Sinclair ULA (Uncommitted Logic Array) at 
a rate of 50 interrupts every second. In IM 1 mode, 
the CPU executes a RST &0038 instruction upon 
receiving an interrupt signal. This results in a jump 
to routines that read the keyboard and update the 
FRAMES counter, located at RAM locations 23672 
to 23674. (These three bytes form a 24-bit counter 
that is hence updated every 20 milliseconds.) 

After a line of Basic has been interpreted, the 
BASIC interpreter waits for an interrupt before it 
proceeds to the next statement interpretation. This 
means that if you disable the interrupts, BAsic 
program execution will come to a halt. 

Maskable interrupts will be ignored by the CPU 
after a DI (Disable Interrupt) instruction has been 
executed, and they are re-enabled by an El (Enable 
Interrupt) command. 

Various routines within the Spectrum operating 
system require interrupts to be disabled while they 
are being executed. These are generally time— 
dependent routines such as the BEEP routine of the 
sound generator and the tape save and load 
routines. Interrupts can also be temporarily 
disabled by the ZX printer, Interface 1 or the 
Microdrive. Obviously, the OS _ re-enables 
interrupts once it has finished with the routine. 

One practical result of various routines 
disabling interrupts is that while these routines are 
being executed the FRAMES counter is not 
incremented. This will cause it to ‘lose time’ while 
these operations are being performed. As an 
interrupt can occur while the CPU is running one 
of your programs, it’s a good idea to disable the 
interrupts for any portion of your program |.) 
which accurate timing is important. However, it is 
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vital to re-enable them before you make the 
return to BASIC! 


VECTORED INTERRUPTS 


To make any practical use of Spectrum interrupts, 
it is necessary to change the interrupt mode to one 
that allows more versatility. The most useful 
interrupt mode is IM2, which is more complicated 
in action than interrupt mode 1. Whereas |M1 
always results in a jump to address &0038 (using 
the RST &0038 instruction), IM2 can be used to 
jump to a routine elsewhere in memory. The 
address that the CPU jumps to is specified using 


what is known as an interrupt vector. 7 
In a vectored interrupt, the vector holds the 


address of the interrupt service routine that is to be 
executed when a maskable interrupt occurs. The 
CPU knows where the vector is located in memory 
by making use of a special register in the Z80 
called the I register. The address of the interrupt 
vector routine is found by combining the contents 
of the I register with those of the data bus at the 
instant the interrupt occurs. In some systems the 
device causing an interrupt will put a byte on the 
data bus to tell the CPU what caused the interrupt. 

The Sinclair ULA does not, however, put a 
value on the data bus when it sends an interrupt 
signal to the Z80, but the way in which the 
Spectrum hardware is arranged ensures that the 
data bus holds the value 255 when no other input is 
applied to it. The I register, therefore, provides the 
hi-byte of the 16-bit address of the interrupt 
vector, and the value on the data bus (in this case 
&FF) provides the lower byte of the address. ‘Thus, 
the interrupt vector will always be located at a 
page boundary in memory, with the lo-byte of the 
interrupt service routine held at address &nnFF and 
the hi-byte at address &(nn+1)00 (where nn is the 
contents of the I register). 

For example, if the register holds the value &FB, 
the address of the vector will be at &FBFF. The lo- 
byte of the vector, at location &FBFF, will hold the 
lo-byte of the address of the interrupt service 
routine, and the hi-byte of the vector, at address 
&FCO0, will hold the hi-byte of the ISR address. 

There are restrictions on where the ISR can be 
located in memory — the first 16 Kbytes, for 
example, is assigned to the ROM, and therefore 
cannot be used. Secondly, hardware problems 
prevent the correct operation of the OS with an I 
register value in the range 64 to 127. 


USING INTERRUPT MODE 2 

Let’s now look at how the Z80 is put into interrupt 
mode 2, and set up the interrupt vector with the 
address of the ISR to be used: 


F3 di sdisable interrupts 
210688 Id hl ADDRESS sget ISR address in HL 
22FFFB Id CHPBFF) hl sget address into vector 
3EFB Id a, #FB shi-byte of vector... 
ED4? Id i,a +,.einto | register 

EDSE IM 2 sset int mode 2 

FB ei sre-enable interrupts 
C9 ret sback to BASIC 








Of course, this listing assumes that there is a 
routine at ADDRESS to handle the interrupts — if 
there isn’t, a crash is likely to occur. Furthermore, 
any interrupt service routine should ideally 
perform all of the tasks normally carried out by the 
Spectrum in its usual interrupt mode. This is best 
done with a call to the routine at address &38. The 
following Assembly language program changes 
the interrupt mode to IM2 and causes the CPU to 
execute the routine at ADDRESS on each interrupt 
(which in this case simply performs the usual 
functions that the Spectrum carries out in its 
normal interrupt mode). 


org 68688 ‘specify start add 

vector: equ #FEFF *FEFF is vector add 
Z16FEA change: Id hl,addres sget address into HL 
22FFFE Id (vector) ,hl sset up vector 
F3 di sdisable interrupts 
SEFE Id a, #FE sset up the... 
ED47 Id i,a +,..] register 
EDSE im 2 schange int mode 
FB ei sre-enable interrupts 
C9 ret sback to BASIC © 
F3 addres: di sturn off interrupts 
FF rst #38 ‘normal IMI procedure 
FB ei ‘re-enable interrupts 
C9 ret 


Calling the routine at address CHANGE will set up 
the new interrupt mode and the vector. Once this 
is done, the routine at ADDRESS will be executed 
every one-fiftieth of a second. At the moment this 
routine doesn’t do anything particularly useful, 
but we'll give it some handy functions shortly. 

If it’s necessary to change the interrupt mode. 
back to normal at any time during the program, a 
routine such as the one following can be used to 
peform this task: 


F3 di 

3E3F Id a, W3f sreset | register... 
ED4? Id i,a *,..t0 its usual value 
EDS6 in snormal mode 

FB ei ‘re-enable interrupts 
cg ret 


To make the interrupt service routine run some 
code of our own, we simply treat the code as a 
subroutine and CALL it in the way shown here: 

F3 addres: di 


FS push af ;save registers... 

03 push bec 

D5 push de 

) push hl 

FF rst #38 call normal ISR 

F3 di ‘ISR did EI], so DI again 
CD6068 call PROG_ADD scal] our own routine 
Ei pop hl srestore registers... 
Di | pop de 

Ci pop bc 

Fi pop af 

FB el 

C9 ret 


Obviously, if your interrupt service routine is 
lengthy, it will slow the Spectrum down slightly, 
which will affect program execution and the rate at 
which FRAMES is incremented. Finally, always 
remember to disable interrupts during your 
routine so as to prevent a second interrupt 
occurring halfway through the servicing of the first 
one. 
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The following program shows how 
interrupts can be used to provide 
‘background music’ on your 
Spectrum. 

The Note Data Compiler is a 
BASIC program that enables you to 
write your own tunes, whereas the 
Assembly listing (or the BASIC 
Loader if you don't have an 
assembler) will enable you to set up 
the interrupt-driven music routine 
and pass to it the data compiled by 
the Note Data Compiler. 

RUNning the Note Data Compiler 
presents a menu with three options. 
‘C- COMPILE’ will, if selected, 
change the tune (held in the data 
statements between lines 10 and 
900) into a block of code that can be 
used by the interrupt routine. ‘P’ will 
play the tune so you can decide what 
changes (if any) you wish to make. 
‘R’ will return you to BASIC so that 
you can SAVE the compiled data or 
change the music data in the data 

_ Statements. 

Note that if you use the ‘C’ 
option, you will be asked to specify 
where in memory you wish to store 
the note data. Make sure that you 
store it above RAMTOP, the value of 
which you will have had to alter 
previously to make room for the 
data. When the notes have been 
compiled and stored, the base 
address and length of the code will 
be displayed. You should make a 
note of these because you will need 
this information later. To save code, 
return to BASIC and enter: SAVE 
“NOTEDATA’ CODE (base address), 
(no of bytes long). Finally, if you 
wish to use your own tunes, just get 

tid of lines 10 to 90 and put your 
own data anywhere between lines 10 
and 900. 

Type in the Assembly listing 
using an assembler and save it to 
tape. If you do not have an 

assembler, use the BASIC Loader. 

The routine has a base adaress 
_ 0f 65021, so before loading the code 
into memory ensure that you have 
lowered RAMTOP accordingly 
(CLEAR 65000 will do). Having 
assembled and loaded the code, you 
_ will need to load the code compiled 

_ by the Note Data Compiler (below). 
Remember to lower RAMTOP again 
to allow for the note data. 

The interrupt music program 
needs to know the exact location of 
the note data to be played before it 
can operate. You can pass this 
information to the routine using the 
following short BASIC program: 


10 LET L=65152: LET 
V=(*base address of note 
data”) 

20 POKEL+1,INT(V/256): 
POKE L,V-PEEK (L+1)*256 


Having done that, RAND USR 65041 
will set up IM2 and start playing 
your tune. RAND USR 650711 will re- 
select IM1 and turn the music off 


Interrupt Music Program 


Note Data Compiler 

1 REM >>> INTERRUPT MUSIC <<< 

2 REM >>Note Data Compiler<< 

3S REM 

6& REM #NOTE DATA IN STANDARD SPECTRUM BEEP FORM 
AT * 

7 REM 

9 RESTORE 


10 


20 


1,10, 


30 


1,12, 


40 


1,19, 


30 


60 


2-2, 


70 
80 
90 


9793 


997 
998 
999 

1000 

2000 

2010 

2020 

2030 


a7?y 9 
1,9,2,10,1,10,2,10,1,12,5 

7 

9 


DATA 1512525991 o9yl5%yl58y15%y 2517 y1,12,2,12, 
5,14 

DATA 1,14,2,7,1.7.1.7,1.6.1.7,2,16.1,14.2,14. 
24 Py 15F%o2o%y1510,5, 

DATA 1,12,2,9,1.9,1,9,1.0.1,9%.2.17,1.12,2,12, 
2y1141419%52y1991419,5519 

DATA 1,17,2516,1,19,1,19,1,18,1,19,2514,1,19, 
1,10,1,19,2,12.1,11,2,12.1,11.3,12 

DATA 3, 10,1575 1 48y 15% 2o1451 412550 25%y 5025553 
3.257,5,5 

DATA 1.5.1.7,1,9.1,10,2,16,1,14,3.2,12,3.2,17 
14,3.2,14,5,12 

DATA 1,12,2,14,1,1451,14,1,13,1,14,3,16,3,9 
DATA 2417415175 1519%y151751519,5,21 

DATA 1,21,25194 15175 2514451510, 50259532255, 322 
2,4,5,5 

REM 

REM *DO NOT ERASE LINE 999% 

DATA 255,255 

REM 

REM *«**#* MENU x***+* 

BORDER 1: PAPER 1: INK & 

CLS 

PRINT AT 5,4; "INTERRUPT MUSIC COMPILER"SAT 10 


sus ""C —-— Compile note data";AT 12,5;"P -—- Play tun 


e in beeps";AT 14,5;"R —-- Return to BASIC" 
2040 LET a$=INKEY$ 
2050 IF a$="c" OR a$="C" THEN GO TO 5000 
2060 IF a$="p" OR a$="P" THEN GO TO 3000 
2070 IF a$="r" OR a$="R" THEN CLS : STOP 
2080 GO TO 2040 
3000 RESTORE 
3010 READ d,f: IF d=255 AND f=255 THEN GO TO 2000 
Assembly Listing 

org 69821 
6668  vect: detw 8 :2 bytes for vector 
DDES inter: push ix 
ES push hl 
C5 push be 
D5 push de 
FO push af 
C334FE jp start ‘jp to music routine 
FI enprg: pop aft 
D1 pop de 
Ci pop bec 
E! pop hl 
DDE | pop ix 
Cd3886 Ip 36 iJp to ROM ISR 
21FFFP on: Id hl,inter ;set up vector 
Z2FDFD Id {vect),hl 
F3 di 
SEFD Id a,203 
ED47 Id 1,2 sget vect hi-byte in | 
EDSE im 2 ‘set int mode 2 
ZASBFE initi: Id hl,¢datad) ‘point to data 
227EFE Id = (locat),hl 
SEB! jd a,! ;switch = 1 = play note 
3282FE Id (swtch),a 
3D dec a ‘delay = 8 
S2B3FE id (delay),a 
FB ei 
C9 ret yback to BASIC 
F3 off: di 
EDS6 im | ‘set int mode | 
FB el 

ret 
C9 i 
JAB2FE start: id  a,(swtch) ‘get switch in a 
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3020 BEEP d/10,f-6: GO TO 3010 

5000 RESTORE : CLS : INPUT "BASE ADDRESS OF NOTE D 
ATA? "sddis POKE 23301,INT (ddi/2546): POKE 233500,d 
di-—(256"PEEK 23301): CLEAR ddi-i: LET ddi=PEEK 233 
O0+256*PEEK 23301 

9005 LET f=0: LET d=ddi 

3010 READ delay,pitch 

5015 LET delay=INT (delay*#4) 

5020 LET freqg=(1.0594631“pitch) #256 

5030 LET bip=INT ( (437500/freq)—30.125) 

5035 IF delay=255*6 THEN POKE d,255: GO TO 6000 
5037 LET f=f+1: PRINT AT 10,103 "NOTE )"3f 

5040 POKE d,delay 

50460 POKE d+1,bip-(INT (bip/2546) #2564) 

5070 POKE d+2,INT (bip/2564) 

5080 LET d=d+3 

5090 GO TO 5010 

6000 PAUSE 50: CLS : LET len=(d+2)-ddl 

6010 PRINT "LOCATION OF NOTE DATA IN MEMORY="5dd1° 
** "NUMBER OF BYTES OF NOTE DATA...."slen 

6020 INPUT "PRESS ‘ENTER’ TO RETURN TO MENU "3; LIN 
E a: GO TO 2000 


BASIC Loader 


10 RESTORE 9000 

20 CLEAR 44000 

30 LET cqs=0O: FOR £=65021 TO 45156 
40 READ dat: POKE f,dat 

90 LET cqs=cqs+dat 


60 NEXT f 

70 IF cqs<>18850 THEN PRINT "ERROR IN DATA !!!" 
: STOP | 

80 PRINT "Ok NO PROBLEMS IN DATA" 

90 STOP 


9000 DATA 0,0,221, 229,229,197, 213, 245,195,52,254,2 
41,209,193, 225,221,225, 195, 56,0435, 255,253, 54,253, 
253, 243,62, 253,257 571,237, 94,42, 128, 254,354,126, 254 
,62,1,50,130,254,61,50,131, 254,251, 201,243,237 ,84, 
251,201,58,130, 254, 254,0,202,8,254,58,131,254,254, 
0, 202,75, 254,61,50,131,254,195,8,254,42,126,254,12 
6,254,255, 202, 108, 254,50,131,254,35,126,35,975,126, 
35,34,126,254,103,107,17,4,0,205,181,3,243,195,8,2 
54,42,128,254,34,126,254,62,1,50,1350,254,61,50,131 
,254,195,8,254,09,0,0,0,0,0,0, 


FEB cp 4G 

CAGBFE Jp  2,enprg 71¢ switch 8 then end 
SABSFE Id a,idelay) 

FEG@ cp 86 

CA4BFE Jp  z,nwnot ‘if delay @ then play 
3D dec a :delay=delay-1 

S283FE Id (delay},a ;store new delay value 
C3O8FE Jp  enprg ‘goto end routine 
2A7EFE nwnot: Id  hl,<locat) sget data location 

7E Id a,th) ‘get next delay in a 
FEFF cp 290 s200 = data finished 
CA6CFE Jp z,reset ‘data ended so reset 
3283FE Id ‘delay?,a ;store new delay 

Z3 inc Al ;point to next databyte 
7E id a,thi? sget it in a 

23 inc hl ‘point to next databyte 
JF Id @,a ‘store bytel in e 

7E Id a, thi) ‘store byteZ in a 

23 inc hi ‘point to next byte 
227EFE td = {Jocat),hl ‘store next-byte-address 
67 1d fia sget frequency data... 
6B Id (,é *...18 HL 

118486 Id de,4 ‘note duration of 4 
CDB563 call 949 ;call ROM beep routine 
F3 di +ROM-BEEP did E1, so Di 
C3RBFE Jp  enprg ;goto end routine 
PABBFE reset: Id hil,tdatad) ‘reset various... 
227EFE Id (locat) ,hl +2, .pointers 

3EB! Id a,l 

3282FE Id (swtch),a 

3D dec a 

3283FE Id (delay),a 

C3B8FE Jp  enprg sgoto end routine 

8888 locat: detw @ ‘reserve memory for... 
6008 datad: defw 8 ‘various pointers... 


68 swtch: defb @ 
68 delay: defb 8 























